Celestin Apprentice 5/Apprentice-Release5.iso/Utilities/Programming/MT2Trivial 1.0b2/Example/test.p

Text File | 1996-06-04 | 12.1 KB | 496 lines | [TEXT/MPS ]

{**********************************************************************
            WARNING!
            This source had been generated by
            beta version  1.0b2 of the MT2Trivial Tool.
            Be sure to ask author about improved
            version of the program :
                            Michael I Trofimov,
                            Internet: [e-mail]
            (Any comments & suggestions will be highly appreciated.)
**********************************************************************}
{%% MT2Trivial Generation: Program heading}
program test;
{ CONST Version  = '1.0';   For 'vers' resource}
 USES Memory,Quickdraw,Events,Desk,ToolUtils,Fonts,Windows,Menus,Dialogs
{%% >> add necessary units here <<}
;
{
,ActionAtomIntf,ADSP,AEObjects,AEPackObject,AERegistry,AIFF,Aliases,AppleEvents,AppleTalk
,Balloons
,CommResources,Components,Connections,ConnectionTools,Controls,CRMSerialDevices,CTBUtilities
,CursorCtl
,DatabaseAccess,DeskBus,Devices,DisAsmLookup,DiskInit,Disks
,Editions,ENET,EPPC,ErrMgr,Errors
,Files,FileTransfers,FileTransferTools,Finder,FixMath,Folders
,GestaltEqu,Graf3D
,HyperXCmd
,Icons,ImageCodec,ImageCompression,IntEnv
,Language,Lists
,MacPrint,MediaHandlers,Memory,MemTypes,MIDI,Movies,MoviesFormat
,Notification
,ObjIntf,OSEvents,OSIntf,OSUtils
,Packages,PackIntf,PaletteMgr,Palettes,PasLibIntf,Perf,Picker,PickerIntf,PictUtil
,Power,PPCToolBox,Printing,PrintTraps,Processes
,QDOffscreen,QuickTimeComponents
,Resources,Retrace,ROMDefs,RTLib
,SANE,Scrap,Script,SCSI,SCSIIntf,SegLoad,Serial,ShutDown,Signal,Slots,Sound,SoundInput
,StandardFile,Start,Strings,SysEqu
,Terminals,TerminalTools,TextEdit,Timer,ToolIntf,Traps,Types
,Unmangler
,Video,VideoIntf
}

 CONST
  CNTLID130 = 130; {%%?}
  CNTLID129 = 129; {%%?}
  NewWindowWINDID = 128; { WIND resource : New Window }
  FileMENUID = 257; { MENU resource : File }
  NewItem =  1; { "New" }
  OpenItem =  2; { "Open…" }
  CloseItem =  3; { "Close" }
  SaveItem =  5; { "Save" }
  SaveAsItem =  6; { "Save as…" }
  PageSetupItem =  8; { "Page Setup…" }
  PrintItem =  9; { "Print…" }
  QuitItem = 11; { "Quit" }
  EditMENUID = 258; { MENU resource : Edit }
  UndoItem =  1; { "Undo" }
  CutItem =  3; { "Cut" }
  CopyItem =  4; { "Copy" }
  PasteItem =  5; { "Paste" }
  ClearItem =  6; { "Clear" }
  SelectAllItem =  7; { "Select All" }
  AppleMENUID = 256; { MENU resource : Apple }
  AboutTestEditItem =  1; { "About testEdit…" }
  MBARID = 128;
  a1stDialogDLOkItem = 1; { Ok }
  a1stDialogDLCancelItem = 2; { Cancel }
  a1stDialogDLItem3 = 3; {  }
  a1stDialogDLItem4 = 4; {  }
  a1stDialogDLItem5 = 5; {  }
  a1stDialogDLDoItItem = 6; { Do it }
  a1stDialogDLHiItem = 7; { Hi }
  a1stDialogDLLoItem = 8; { Lo }
  a1stDialogDLPictureItem9 = 9; {  }
  a1stDialogDLIconItem10 = 10; {  }
  a1stDialogDLItem11 = 11; {  }
  a1stDialogDLAnyTextItem = 12; { Any Text }
  a2ndDialogDLOkItem = 1; { Ok }
  a2ndDialogDLCancelItem = 2; { Cancel }
  a2ndDialogDLUserItemItem3 = 3; {  }
  a2ndDialogDLPleaseSelectFileFromListItem = 4; { Please, select file from list. }
  MyAlertBoxALOkItem = 1; { Ok }
  MyAlertBoxALTextInAlertBoxItem = 2; { Text in alert box }
  a1stDialogDLOGID = 128; { DLOG resource : 1st Dialog }
  a2ndDialogDLOGID = 129; { DLOG resource : 2nd Dialog }
  ICONID128 = 128; {%%?}
  PICTID128 = 128; {%%?}
  MyAlertBoxALRTID = 130; { ALRT resource : My alert box }

{%% MT2Trivial Generation: Items list(DITL)}

 PROCEDURE  DoNewItem;
  begin { DoNewItem }

  end; { DoNewItem }

 PROCEDURE  DoOpenItem;
  begin { DoOpenItem }

  end; { DoOpenItem }

 PROCEDURE  DoCloseItem;
  begin { DoCloseItem }

  end; { DoCloseItem }

 PROCEDURE  DoSaveItem;
  begin { DoSaveItem }

  end; { DoSaveItem }

 PROCEDURE  DoSaveAsItem;
  begin { DoSaveAsItem }

  end; { DoSaveAsItem }

 PROCEDURE  DoPageSetupItem;
  begin { DoPageSetupItem }

  end; { DoPageSetupItem }

 PROCEDURE  DoPrintItem;
  begin { DoPrintItem }

  end; { DoPrintItem }

 PROCEDURE  DoQuitItem;
  begin { DoQuitItem }

  end; { DoQuitItem }

 PROCEDURE  DoUndoItem;
  begin { DoUndoItem }

  end; { DoUndoItem }

 PROCEDURE  DoCutItem;
  begin { DoCutItem }

  end; { DoCutItem }

 PROCEDURE  DoCopyItem;
  begin { DoCopyItem }

  end; { DoCopyItem }

 PROCEDURE  DoPasteItem;
  begin { DoPasteItem }

  end; { DoPasteItem }

 PROCEDURE  DoClearItem;
  begin { DoClearItem }

  end; { DoClearItem }

 PROCEDURE  DoSelectAllItem;
  begin { DoSelectAllItem }

  end; { DoSelectAllItem }

 PROCEDURE  DoAboutTestEditItem;
  begin { DoAboutTestEditItem }

  end; { DoAboutTestEditItem }

 PROCEDURE  Doa1stDialogDLOkItem;
  begin { Doa1stDialogDLOkItem }

  end; { Doa1stDialogDLOkItem }

 PROCEDURE  Doa1stDialogDLCancelItem;
  begin { Doa1stDialogDLCancelItem }

  end; { Doa1stDialogDLCancelItem }

 PROCEDURE  Doa1stDialogDLItem3;
  begin { Doa1stDialogDLItem3 }

  end; { Doa1stDialogDLItem3 }

 PROCEDURE  Doa1stDialogDLItem4;
  begin { Doa1stDialogDLItem4 }

  end; { Doa1stDialogDLItem4 }

 PROCEDURE  Doa1stDialogDLItem5;
  begin { Doa1stDialogDLItem5 }

  end; { Doa1stDialogDLItem5 }

 PROCEDURE  Doa1stDialogDLDoItItem;
  begin { Doa1stDialogDLDoItItem }

  end; { Doa1stDialogDLDoItItem }

 PROCEDURE  Doa1stDialogDLHiItem;
  begin { Doa1stDialogDLHiItem }

  end; { Doa1stDialogDLHiItem }

 PROCEDURE  Doa1stDialogDLLoItem;
  begin { Doa1stDialogDLLoItem }

  end; { Doa1stDialogDLLoItem }

 PROCEDURE  Doa1stDialogDLPictureItem9;
  begin { Doa1stDialogDLPictureItem9 }

  end; { Doa1stDialogDLPictureItem9 }

 PROCEDURE  Doa2ndDialogDLOkItem;
  begin { Doa2ndDialogDLOkItem }

  end; { Doa2ndDialogDLOkItem }

 PROCEDURE  Doa2ndDialogDLCancelItem;
  begin { Doa2ndDialogDLCancelItem }

  end; { Doa2ndDialogDLCancelItem }

 PROCEDURE  Doa2ndDialogDLUserItemItem3;
  begin { Doa2ndDialogDLUserItemItem3 }

  end; { Doa2ndDialogDLUserItemItem3 }

 PROCEDURE  DoMyAlertBoxALOkItem;
  begin { DoMyAlertBoxALOkItem }

  end; { DoMyAlertBoxALOkItem }


{%% MT2Trivial Generation: Window}

 PROCEDURE  DoNewWindow (var window : WindowPtr);
  begin {DoNewWindow}

   window := nil;
   window := GetNewWindow (NewWindowWINDID,nil,WindowPtr(-1)); {%%? >> GetNewCWindow << }
 end; {DoNewWindow}

{%% MT2Trivial Generation: Dialogs, Alerts}

 PROCEDURE  Doa1stDialogDL;
 VAR
  itemHit : integer;
  DialogW : DialogPtr;
  begin { Doa1stDialogDL }

   DialogW := GetNewDialog (a1stDialogDLOGID,nil, pointer (-1));
   REPEAT
    ModalDialog (nil, itemHit); {%% >> Change it for modless dialog <<}
    case itemHit of
      a1stDialogDLOkItem : Doa1stDialogDLOkItem;
      a1stDialogDLCancelItem : Doa1stDialogDLCancelItem;
      a1stDialogDLItem3 : Doa1stDialogDLItem3;
      a1stDialogDLItem4 : Doa1stDialogDLItem4;
      a1stDialogDLItem5 : Doa1stDialogDLItem5;
      a1stDialogDLDoItItem : Doa1stDialogDLDoItItem;
      a1stDialogDLHiItem : Doa1stDialogDLHiItem;
      a1stDialogDLLoItem : Doa1stDialogDLLoItem;
      a1stDialogDLPictureItem9 : Doa1stDialogDLPictureItem9;
     end; {case}
   UNTIL itemHit = a1stDialogDLOkItem; {%%?}
   DisposeDialog (DialogW);
 end; { Doa1stDialogDL }

 PROCEDURE  Doa2ndDialogDL;
 VAR
  itemHit : integer;
  DialogW : DialogPtr;
  begin { Doa2ndDialogDL }

   DialogW := GetNewDialog (a2ndDialogDLOGID,nil, pointer (-1));
   REPEAT
    ModalDialog (nil, itemHit); {%% >> Change it for modless dialog <<}
    case itemHit of
      a2ndDialogDLOkItem : Doa2ndDialogDLOkItem;
      a2ndDialogDLCancelItem : Doa2ndDialogDLCancelItem;
      a2ndDialogDLUserItemItem3 : Doa2ndDialogDLUserItemItem3;
     end; {case}
   UNTIL itemHit = a2ndDialogDLOkItem; {%%?}
   DisposeDialog (DialogW);
 end; { Doa2ndDialogDL }

 PROCEDURE  DoMyAlertBoxAL;
 VAR
  itemHit : integer;
  begin { DoMyAlertBoxAL }

   itemHit := Alert (MyAlertBoxALRTID, nil);
    case itemHit of
      MyAlertBoxALOkItem : DoMyAlertBoxALOkItem;
     end; {case}
 end; { DoMyAlertBoxAL }


{%% MT2Trivial Generation: Menu}

PROCEDURE DoMenuCommand(event: EventRecord; var quit : Boolean);

VAR
  menuResult: longint;
  menu,mitem: integer;

BEGIN
  menuResult:=MenuSelect(event.where);
  menu:=HiWord(menuResult);
  mitem:=LoWord(menuResult);

  CASE menu OF
  FileMENUID : case mitem of
      NewItem : DoNewItem;
      OpenItem : DoOpenItem;
      CloseItem : DoCloseItem;
      SaveItem : DoSaveItem;
      SaveAsItem : DoSaveAsItem;
      PageSetupItem : DoPageSetupItem;
      PrintItem : DoPrintItem;
      QuitItem : DoQuitItem;
     end; {case}
  EditMENUID : case mitem of
      UndoItem : DoUndoItem;
      CutItem : DoCutItem;
      CopyItem : DoCopyItem;
      PasteItem : DoPasteItem;
      ClearItem : DoClearItem;
      SelectAllItem : DoSelectAllItem;
     end; {case}
  AppleMENUID : case mitem of
      AboutTestEditItem : DoAboutTestEditItem;
     end; {case}
     end; {case}
 end; { DoDoMenuCommand }


{%% MT2Trivial Generation: Menu}

PROCEDURE DoMakeMenus;
    var
        menuBar: Handle;

    BEGIN
      menuBar:=GetNewMBar(MBARID); {read menus and menu bar}

      IF menuBar<>NIL
        THEN
          BEGIN
            SetMenuBar(menuBar); {insert menus into the current menu list}
            DisposHandle(menuBar);
            AddResMenu(GetMHandle(  AppleMENUID),'DRVR'); {add desktop items in Apple Menu
                                                   Items folder to Apple menu}

            {%% >> adjust items and enabled state of menus <<}

            DrawMenuBar; {draw the menu bar}

          END;
    END; {DoMakeMenus}

{%% MT2Trivial Generation: Main Loop}

  PROCEDURE DoOSEvent(event: EventRecord; VAR cursorRgn: RgnHandle);
  {Handling operating-system events}

    VAR
      window: windowPtr;
      activate: boolean;

    BEGIN
      window:=FrontWindow;
      CASE BSR(event.message,24) OF
       mouseMovedMessage:

               {%% >> Adjust cursor <<};

        suspendResumeMessage:
          BEGIN
            activate:=(BAnd(event.message,resumeFlag)<>0);

           {%% >> activate appl. window <<};

          END;
        OTHERWISE;
      END;
    END; {DoOSEvent}

PROCEDURE DoMouseDown (event: EventRecord; var quit : Boolean);
    VAR
     part         : integer;
     aWindow     : WindowPtr;

    BEGIN
      part:=FindWindow(event.where,aWindow);
      CASE part OF
        inMenuBar:      DoMenuCommand(event,quit);
        InSysWindow:     SystemClick(event,aWindow);

        inDrag:         {%% >> <<};
        inGoAway:         {%% >> <<};
        inGrow:          {%% >> <<};

        inZoomIn,
        inZoomOut:         {%% >> handle mouse down in zoombox region <<};

        inContent:        {%% >> <<};
      END; {case part of}
    END; {DoMouseDown}

  PROCEDURE MainLoop;

    CONST
      kReturnKey = $0D;
      kEnterKey = $03;
      kEscKey = 27;


    VAR
      key: Char;
      quit,gotEvent,activate : Boolean;
      event: EventRecord;
      cursorRgn: RgnHandle;

    BEGIN
      cursorRgn:=NewRgn;
      quit:=false;
      REPEAT
        gotEvent:=WaitNextEvent(everyEvent,event,15,cursorRgn);
        IF gotEvent
          THEN
            CASE event.what OF
              osEvt: DoOSEvent(event,cursorRgn);
              activateEvt:
                BEGIN
                  activate:=BAnd(event.modifiers,activeFlag)<>0;
                          {%% >> <<}
                END;

              updateEvt:     {%% >> <<};
              mouseUp:         {%% >> <<};

              mouseDown: DoMouseDown (event,quit);

              keyDown,autoKey:
                BEGIN
                  key:=chr(BAnd(event.message,charCodeMask));
                  IF (BAnd(event.modifiers,cmdKey)<>0)
                    THEN {command key down}
                     {%% >> <<}
                    ELSE IF key IN [chr(kReturnKey),chr(kEnterKey)]
                      THEN {return or enter keys were pressed}
                         {%% >> <<}
                      ELSE IF (key=chr(kEscKey))
                        THEN {esc key was pressed}
                          BEGIN
                           {%% >> <<}
                          END
                         ELSE
                          {%% >> <<};
                 END;
              diskEvt:              {%% >> <<};
              nullEvent:         {%% >> <<};
            END; {case}
      UNTIL quit;
      DisposeRgn(cursorRgn);
    END; {MainLoop}

  PROCEDURE Init;
    BEGIN
      MaxApplZone;
      MoreMasters;
      MoreMasters;
      MoreMasters;
      MoreMasters;
      MoreMasters;
      MoreMasters;

      InitGraf(@thePort);
      InitFonts;
      InitWindows;
      InitMenus;
      TEInit;
       InitDialogs(NIL);
      InitCursor;                     {%%?}
 DoMakeMenus;


      {%% >> add another initialization here <<}
    END; {Init}

BEGIN {program body}
 Init;
 MainLoop;
END.